home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1988-04-30 | 1.9 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1c 3b 2f 70 72 7b 67 | 73 61 76 65 20 6e 65 77 |..;/pr{g|save new|
|00000010| 70 61 74 68 2f 70 6c 7b | 65 78 63 68 20 6d 6f 76 |path/pl{|exch mov|
|00000020| 65 74 6f 2f 70 6c 7b 65 | 78 63 68 20 6c 69 6e 65 |eto/pl{e|xch line|
|00000030| 74 6f 7d 64 65 66 7d 64 | 65 66 7d 62 64 66 13 2f |to}def}d|ef}bdf./|
|00000040| 70 6c 7b 65 78 63 68 20 | 6c 69 6e 65 74 6f 7d 62 |pl{exch |lineto}b|
|00000050| 64 66 3f 2f 65 70 7b 64 | 75 70 20 30 20 65 71 7b |df?/ep{d|up 0 eq{|
|00000060| 7b 6d 6f 76 65 74 6f 7d | 7b 65 78 63 68 20 6c 69 |{moveto}|{exch li|
|00000070| 6e 7d 7b 7d 7b 28 25 25 | 5b 7c 31 7c 5d 25 25 29 |n}{}{(%%|[|1|]%%)|
|00000080| 3d 20 66 6c 75 73 68 7d | 70 61 74 68 66 6f 72 61 |= flush}|pathfora|
|00000090| 6c 6c 42 70 6f 70 20 67 | 72 65 73 74 6f 72 65 7d |llBpop g|restore}|
|000000a0| 7b 64 6f 6f 70 20 67 72 | 65 73 74 6f 72 65 7d 69 |{doop gr|estore}i|
|000000b0| 66 65 6c 73 65 20 63 75 | 72 72 65 6e 74 70 6f 69 |felse cu|rrentpoi|
|000000c0| 6e 74 20 6e 65 77 70 61 | 74 68 20 6d 6f 76 65 74 |nt newpa|th movet|
|000000d0| 6f 7d 62 64 66 17 2f 67 | 72 7b 36 34 2e 20 64 69 |o}bdf./g|r{64. di|
|000000e0| 76 20 73 65 74 67 72 61 | 79 7d 62 64 66 82 2f 70 |v setgra|y}bdf./p|
|000000f0| 61 74 7b 73 38 20 63 6f | 70 79 20 70 6f 70 20 39 |at{s8 co|py pop 9|
|00000100| 2e 33 37 35 20 70 61 20 | 70 6f 72 20 6e 6f 74 7b |.375 pa |por not{|
|00000110| 39 30 20 61 64 64 7d 69 | 66 7b 31 20 61 64 64 20 |90 add}i|f{1 add |
|00000120| 34 20 6d 75 6c 20 63 76 | 69 20 73 38 20 65 78 63 |4 mul cv|i s8 exc|
|00000130| 68 20 67 65 74 20 65 78 | 63 68 20 31 20 61 64 64 |h get ex|ch 1 add|
|00000140| 20 34 20 6d 75 6c 20 63 | 76 69 20 37 20 73 75 62 | 4 mul c|vi 7 sub|
|00000150| 20 62 69 74 73 68 69 66 | 74 20 31 20 61 6e 64 7d | bitshif|t 1 and}|
|00000160| 73 65 74 73 63 72 65 65 | 6e 20 67 72 7d 62 64 66 |setscree|n gr}bdf|
|00000170| 26 2f 73 67 7b 66 72 65 | 71 20 72 6f 74 2f 73 70 |&/sg{fre|q rot/sp|
|00000180| 66 20 6c 6f 61 64 20 73 | 65 74 73 63 72 65 65 6e |f load s|etscreen|
|00000190| 20 67 72 7d 62 64 66 40 | 2f 64 63 7b 74 72 61 6e | gr}bdf@|/dc{tran|
|000001a0| 73 66 6f 72 6d 20 72 6f | 75 6e 64 20 2e 35 20 73 |sform ro|und .5 s|
|000001b0| 75 62 20 65 78 63 68 20 | 72 6f 75 6e 64 20 2e 35 |ub exch |round .5|
|000001c0| 20 73 75 62 20 65 78 63 | 68 20 69 74 72 61 6e 73 | sub exc|h itrans|
|000001d0| 66 6f 72 6d 7d 62 64 66 | 1e 2f 73 6e 7b 75 73 65 |form}bdf|./sn{use|
|000001e0| 72 64 69 63 74 2f 73 6d | 6f 6f 74 68 34 20 6b 6e |rdict/sm|ooth4 kn|
|000001f0| 6f 77 6e 7d 62 64 66 12 | 2f 78 38 7b 33 20 62 69 |own}bdf.|/x8{3 bi|
|00000200| 74 73 68 69 66 74 7d 62 | 64 66 12 2f 78 34 7b 32 |tshift}b|df./x4{2|
|00000210| 20 62 69 74 73 68 69 66 | 74 7d 62 64 66 13 2f 64 | bitshif|t}bdf./d|
|00000220| 34 7b 2d 32 20 62 69 74 | 73 68 69 66 74 7d 62 64 |4{-2 bit|shift}bd|
|00000230| 66 13 2f 64 38 7b 2d 33 | 20 62 69 74 73 68 69 66 |f./d8{-3| bitshif|
|00000240| 74 7d 62 64 66 25 2f 72 | 62 7b 31 35 20 61 64 64 |t}bdf%/r|b{15 add|
|00000250| 20 2d 34 20 62 69 74 73 | 68 69 66 74 20 31 20 62 | -4 bits|hift 1 b|
|00000260| 69 74 73 68 69 66 74 7d | 62 64 66 4a 2f 64 62 7b |itshift}|bdfJ/db{|
|00000270| 2f 40 37 20 73 61 76 65 | 20 64 65 66 2f 40 31 20 |/@7 save| def/@1 |
|00000280| 78 64 66 2f 40 32 20 78 | 64 66 2f 40 33 20 78 64 |xdf/@2 x|df/@3 xd|
|00000290| 66 2f 40 34 20 78 64 66 | 2f 40 35 20 78 64 66 2f |f/@4 xdf|/@5 xdf/|
|000002a0| 40 36 20 40 35 20 40 33 | 20 34 20 61 64 64 20 6d |@6 @5 @3| 4 add m|
|000002b0| 75 6c 20 64 65 66 63 64 | 63 20 74 72 61 6e 73 6c |ul defcd|c transl|
|000002c0| 61 74 65 20 73 63 61 6c | 65 2f 78 64 62 69 74 20 |ate scal|e/xdbit |
|000002d0| 31 20 31 20 69 64 74 72 | 61 6e 73 66 6f 72 6d 20 |1 1 idtr|ansform |
|000002e0| 61 62 73 2f 79 64 62 69 | 74 20 65 78 63 68 20 64 |abs/ydbi|t exch d|
|000002f0| 65 66 20 61 62 73 20 64 | 65 66 7b 30 20 30 20 31 |ef abs d|ef{0 0 1|
|00000300| 20 79 64 62 69 74 20 61 | 64 64 20 31 20 31 30 20 | ydbit a|dd 1 10 |
|00000310| 72 63 20 63 6c 69 70 7d | 69 66 3a 40 31 20 30 20 |rc clip}|if:@1 0 |
|00000320| 65 71 20 40 31 20 34 20 | 65 71 20 6f 72 7b 31 20 |eq @1 4 |eq or{1 |
|00000330| 73 65 74 67 72 61 79 20 | 79 64 62 69 74 20 30 20 |setgray |ydbit 0 |
|00000340| 31 20 79 64 62 69 74 20 | 61 64 64 20 31 20 32 20 |1 ydbit |add 1 2 |
|00000350| 72 63 7d 69 66 67 40 31 | 20 33 20 65 71 20 40 31 |rc}ifg@1| 3 eq @1|
|00000360| 20 37 20 65 71 20 6f 72 | 7b 31 7d 7b 30 7d 69 66 | 7 eq or|{1}{0}if|
|00000370| 65 6c 73 65 20 73 65 74 | 67 72 61 79 2f 40 39 20 |else set|gray/@9 |
|00000380| 40 31 20 30 20 65 71 20 | 40 31 20 31 20 65 71 20 |@1 0 eq |@1 1 eq |
|00000390| 40 31 20 33 20 65 71 20 | 6f 72 20 6f 72 20 64 62 |@1 3 eq |or or db|
|000003a0| 69 6e 76 65 72 74 66 6c | 61 67 20 78 6f 72 20 64 |invertfl|ag xor d|
|000003b0| 65 66 2f 40 31 33 20 40 | 36 20 64 65 66 91 40 32 |ef/@13 @|6 def.@2|
|000003c0| 20 66 42 69 74 53 74 72 | 65 74 63 68 20 6f 72 7b | fBitStr|etch or{|
|000003d0| 2f 40 31 30 20 40 34 20 | 78 34 20 64 65 66 2f 40 |/@10 @4 |x4 def/@|
|000003e0| 31 31 20 40 33 20 78 34 | 20 64 65 66 2f 40 31 32 |11 @3 x4| def/@12|
|000003f0| 20 40 31 30 20 72 62 20 | 64 65 66 2f 40 31 33 20 | @10 rb |def/@13 |
|00000400| 40 31 32 20 40 31 31 20 | 6d 75 6c 20 64 65 66 2f |@12 @11 |mul def/|
|00000410| 40 31 35 20 31 20 31 20 | 64 74 72 61 6e 73 66 6f |@15 1 1 |dtransfo|
|00000420| 72 6d 20 61 62 73 2f 63 | 61 6c 63 59 20 31 20 69 |rm abs/c|alcY 1 i|
|00000430| 6e 64 65 78 20 64 65 66 | 20 72 6f 75 6e 64 20 63 |ndex def| round c|
|00000440| 76 69 2f 40 31 34 20 65 | 78 63 68 20 64 65 66 60 |vi/@14 e|xch def`|
|00000450| 61 62 73 2f 63 61 6c 63 | 58 20 31 20 69 6e 64 65 |abs/calc|X 1 inde|
|00000460| 78 20 64 65 66 20 72 6f | 75 6e 64 20 63 76 69 20 |x def ro|und cvi |
|00000470| 73 63 61 6c 65 62 79 39 | 36 20 6e 6f 74 7b 31 20 |scaleby9|6 not{1 |
|00000480| 61 64 64 7d 69 66 20 64 | 65 66 2f 40 31 36 20 40 |add}if d|ef/@16 @|
|00000490| 31 35 20 72 62 20 64 65 | 66 2f 40 31 37 20 40 31 |15 rb de|f/@17 @1|
|000004a0| 36 20 40 31 34 20 6d 75 | 6c 20 64 65 66 7d 69 66 |6 @14 mu|l def}if|
|000004b0| c8 73 6e 20 40 31 33 20 | 36 30 30 30 30 20 6c 74 |.sn @13 |60000 lt|
|000004c0| 20 61 6e 64 20 40 32 20 | 66 42 69 74 53 74 72 65 | and @2 |fBitStre|
|000004d0| 74 63 68 20 6f 72 20 61 | 6e 64 7b 6d 74 78 20 63 |tch or a|nd{mtx c|
|000004e0| 75 72 72 65 6e 74 6d 61 | 74 72 69 78 20 64 75 70 |urrentma|trix dup|
|000004f0| 20 31 20 67 65 74 20 65 | 78 63 68 20 32 20 67 65 | 1 get e|xch 2 ge|
|00000500| 74 20 30 2e 20 65 71 20 | 65 78 63 68 20 30 2e 20 |t 0. eq |exch 0. |
|00000510| 65 71 20 61 6e 64 20 40 | 31 37 20 36 30 30 30 30 |eq and @|17 60000|
|00000520| 20 6c 74 20 61 6e 64 20 | 66 42 69 74 53 74 72 65 | lt and |fBitStre|
|00000530| 74 63 68 20 61 6e 64 7b | 40 31 36 20 33 20 62 69 |tch and{|@16 3 bi|
|00000540| 74 73 68 69 66 74 20 40 | 31 34 20 40 39 20 5b 63 |tshift @|14 @9 [c|
|00000550| 61 6c 63 58 20 30 20 30 | 20 63 61 6c 63 59 20 30 |alcX 0 0| calcY 0|
|00000560| 20 30 5d 7b 40 31 37 20 | 73 74 72 69 6e 67 20 40 | 0]{@17 |string @|
|00000570| 31 33 20 73 74 72 69 6e | 67 47 63 75 72 72 65 6e |13 strin|gGcurren|
|00000580| 74 66 69 6c 65 20 40 36 | 20 73 74 72 69 6e 67 20 |tfile @6| string |
|00000590| 72 65 61 64 68 65 78 73 | 74 72 69 6e 67 20 70 6f |readhexs|tring po|
|000005a0| 70 20 31 20 69 6e 64 65 | 78 20 40 34 20 40 33 20 |p 1 inde|x @4 @3 |
|000005b0| 40 35 20 40 31 32 20 40 | 32 20 73 6d 6f 6f 74 68 |@5 @12 @|2 smooth|
|000005c0| 34 73 40 31 30 20 40 31 | 31 20 40 31 32 20 64 75 |4s@10 @1|1 @12 du|
|000005d0| 70 20 73 74 72 69 6e 67 | 20 35 20 69 6e 64 65 78 |p string| 5 index|
|000005e0| 20 40 31 35 20 40 31 34 | 20 40 31 36 20 64 75 70 | @15 @14| @16 dup|
|000005f0| 20 73 74 72 69 6e 67 20 | 73 74 72 65 74 63 68 7d | string |stretch}|
|00000600| 69 6d 61 67 65 6d 61 73 | 6b 7d 7b 40 31 32 20 78 |imagemas|k}{@12 x|
|00000610| 38 20 40 31 31 20 40 39 | 20 5b 40 31 30 20 30 20 |8 @11 @9| [@10 0 |
|00000620| 30 20 40 31 31 20 30 20 | 30 5d 7b 40 31 33 20 73 |0 @11 0 |0]{@13 s|
|00000630| 74 72 69 6e 67 bc 63 75 | 72 72 65 6e 74 66 69 6c |tring.cu|rrentfil|
|00000640| 65 20 40 36 20 73 74 72 | 69 6e 67 20 72 65 61 64 |e @6 str|ing read|
|00000650| 68 65 78 73 74 72 69 6e | 67 20 70 6f 70 20 31 20 |hexstrin|g pop 1 |
|00000660| 69 6e 64 65 78 20 40 34 | 20 40 33 20 40 35 20 40 |index @4| @3 @5 @|
|00000670| 31 32 20 40 32 20 73 6d | 6f 6f 74 68 34 7d 69 6d |12 @2 sm|ooth4}im|
|00000680| 61 67 65 6d 61 73 6b 7d | 69 66 65 6c 73 65 7d 7b |agemask}|ifelse}{|
|00000690| 40 35 20 33 20 62 69 74 | 73 68 69 66 74 20 40 33 |@5 3 bit|shift @3|
|000006a0| 20 34 20 61 64 64 20 40 | 39 20 5b 40 34 20 30 20 | 4 add @|9 [@4 0 |
|000006b0| 30 20 40 33 20 30 20 32 | 5d 7b 63 75 72 72 65 6e |0 @3 0 2|]{curren|
|000006c0| 74 66 69 6c 65 20 40 36 | 20 73 74 72 69 6e 67 20 |tfile @6| string |
|000006d0| 72 65 61 64 68 65 78 73 | 74 72 69 6e 67 20 70 6f |readhexs|tring po|
|000006e0| 70 7d 69 6d 61 67 65 6d | 61 73 6b 7d 69 66 65 6c |p}imagem|ask}ifel|
|000006f0| 73 65 0e 40 37 20 72 65 | 73 74 6f 72 65 7d 62 64 |se.@7 re|store}bd|
|00000700| 66 34 2f 6d 75 6c 74 69 | 62 69 74 7b 2f 6d 62 64 |f4/multi|bit{/mbd|
|00000710| 65 65 70 20 65 78 63 68 | 20 64 65 66 2f 6d 62 59 |eep exch| def/mbY|
|00000720| 20 65 78 63 68 20 64 65 | 66 2f 6d 62 58 20 65 78 | exch de|f/mbX ex|
|00000730| 63 68 20 64 65 66 4f 73 | 61 76 65 20 6d 62 58 20 |ch defOs|ave mbX |
|00000740| 6d 62 59 20 6d 62 64 65 | 65 70 5b 6d 62 58 20 30 |mbY mbde|ep[mbX 0|
|00000750| 20 30 20 6d 62 59 20 30 | 20 30 5d 7b 63 75 72 72 | 0 mbY 0| 0]{curr|
|00000760| 65 6e 74 66 69 6c 65 20 | 70 69 63 73 74 72 20 72 |entfile |picstr r|
|00000770| 65 61 64 68 65 78 73 74 | 72 69 6e 67 20 70 6f 70 |eadhexst|ring pop|
|00000780| 7d 69 6d 61 67 65 0b 72 | 65 73 74 6f 72 65 7d 62 |}image.r|estore}b|
|00000790| 64 66 00 | |df. | |
+--------+-------------------------+-------------------------+--------+--------+
